;redcode-94
;name	f5-Ptest
;author	Flox

	ORG	start

start	LDP	#0,	Pcod
	SEQ	Pcod,	#-1
	SLT	Pcod,	#1
	JMP	LP,	0
	STP	#1,	#1
	MOV	Pcod,	Pcod
	JMP	-1,	>-1

Pcod	DAT	0,	0

bomb	jmp	err,	0
LP	LDP	#1,	Pcod
	SNE	Pcod,	#1
	JMP	Pcod-2,	0
scr	add.ab	#20,	bomb
	sub.a	#20,	bomb
	mov	bomb,	@bomb
	slt.ab	#-21,	bomb
	jmp	scr,	0
	slt.ab	#-11,	bomb
	jmp	again,	0
date	mov	dbom,	err+2
	slt	date,	#-1
	add	#4,	date
	jmp	date,	>date
dbom	dat	0,	0
again	add	#30,	bomb
	sub.a	#30,	bomb
	jmp	scr,	0
err	spl	0,	0
	jmp	err,	0
